home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 February / Macworld (2000-02).dmg / Games World / Hot demos! / Starbound II / AI agents / Gypsum 1.00 / Gypsum 1.00.rsrc / ss$t_142 < prev    next >
Text File  |  1999-10-30  |  775b  |  38 lines
  1. situation ground_unit
  2. vars
  3.    me : ground;
  4.    num : integer;
  5.    enemy : ground;
  6.    target : integer;
  7.    success : boolean;
  8.    
  9. begin
  10.    // Just pick a random enemy unit and attack
  11.    me := This_ground();
  12.    // Calculate the number of ground units
  13.    num := 0;
  14.    enemy := First_ground(false);
  15.    while (enemy <> nil) do
  16.       begin
  17.          num := num + 1;
  18.          enemy := Next_ground(enemy);
  19.       end;
  20.    if num > 0 then         // Only pick a target if there are any
  21.       begin
  22.          target := Random(num);
  23.          enemy := First_ground(false);
  24.          while (target <> 0) do
  25.             begin
  26.                target := target - 1;
  27.                enemy := Next_ground(enemy);
  28.             end;
  29.          success := Set_ground_target(me, enemy);
  30.       end;
  31. end;
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.